object MainWin: TMainWin Left = 319 Top = 143 BorderStyle = bsSingle Caption = 'Word Wrestle 95' ClientHeight = 418 ClientWidth = 632 Font.Color = clWindowText Font.Height = -17 Font.Name = 'System' Font.Style = [] Menu = MainMenu1 Position = poDefault Scaled = False OnClose = FormClose OnCreate = FormCreate OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp OnPaint = FormPaint OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object BackImage: TImage Left = -20 Top = 0 Width = 640 Height = 510 AutoSize = True Picture.Data = {} Visible = False end object MyGauge: TGauge Left = 556 Top = 76 Width = 53 Height = 297 Kind = gkVerticalBar Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ForeColor = clNavy ParentFont = False Progress = 0 end object WhiteImage: TImage Left = 320 Top = 212 Width = 120 Height = 120 Visible = False end object SavedImage: TImage Left = 460 Top = 180 Width = 60 Height = 60 Picture.Data = {} Visible = False end object Image1: TImage Left = 324 Top = 80 Width = 120 Height = 120 Visible = False end object CheckList: TButton Left = 348 Top = 380 Width = 181 Height = 33 Caption = '&Check List' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = CheckListClick end object ExitButton: TButton Left = 544 Top = 380 Width = 81 Height = 33 Caption = 'E&xit' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = ExitButtonClick end object Scramble: TButton Left = 28 Top = 328 Width = 145 Height = 33 Caption = 'Scram&ble' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ScrambleClick end object Start: TButton Left = 184 Top = 328 Width = 145 Height = 33 Caption = '&Start' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = StartClick end object GuessList: TListBox Left = 348 Top = 40 Width = 181 Height = 333 Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ItemHeight = 19 ParentFont = False TabOrder = 4 OnMouseUp = GuessListMouseUp end object WordPanel: TPanel Left = 12 Top = 372 Width = 329 Height = 37 BevelWidth = 2 Color = clTeal TabOrder = 5 object Label3: TLabel Left = 24 Top = 9 Width = 57 Height = 20 AutoSize = False Caption = 'Word' Font.Color = clBlack Font.Height = -18 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object WordEntry: TEdit Left = 92 Top = 4 Width = 233 Height = 29 AutoSize = False Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnKeyPress = WordEntryKeyPress end end object GuessPanel: TPanel Left = 348 Top = 12 Width = 181 Height = 25 BevelWidth = 2 Color = clTeal TabOrder = 6 object label4: TLabel Left = 4 Top = 3 Width = 173 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Word Guesses' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end end object TimeHeadPanel: TPanel Left = 548 Top = 12 Width = 69 Height = 53 BevelWidth = 2 Color = clTeal TabOrder = 7 object Label5: TLabel Left = 4 Top = 5 Width = 61 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Timer' Font.Color = clBlack Font.Height = -17 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object TimePanel: TPanel Left = 2 Top = 26 Width = 65 Height = 25 BevelOuter = bvLowered Caption = '00:00:00' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 end end object MainMenu1: TMainMenu Left = 388 Top = 256 object MenuFile: TMenuItem Caption = '&File' ShortCut = 0 object MenuOpen: TMenuItem Caption = '&Open Puzzle' ShortCut = 16463 OnClick = MenuOpenClick end object MenuSave: TMenuItem Caption = 'Sa&ve Puzzle' ShortCut = 16470 OnClick = MenuSaveClick end object MenuBuild: TMenuItem Caption = '&Design Puzzle' ShortCut = 16474 OnClick = MenuBuildClick end object MenuList: TMenuItem Caption = '&Word List Puzzle' ShortCut = 16460 OnClick = MenuListClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object MenuScreenSize: TMenuItem Caption = 'S&creen Size' ShortCut = 0 object N640x480: TMenuItem Caption = '640x480' ShortCut = 16496 OnClick = N640x480Click end object N800x600: TMenuItem Caption = '800x600' ShortCut = 16497 OnClick = N800x600Click end object N1024x768: TMenuItem Caption = '1024x768' ShortCut = 16498 OnClick = N1024x768Click end object N1280x1024: TMenuItem Caption = '1280x1024' ShortCut = 16499 OnClick = N1280x1024Click end end object MenuPrint: TMenuItem Caption = '&Print Puzzle' ShortCut = 16464 OnClick = MenuPrintClick end object MenuSetup: TMenuItem Caption = 'Printer &Setup' ShortCut = 16466 OnClick = MenuSetupClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object MenuExit: TMenuItem Caption = 'E&xit' ShortCut = 16472 OnClick = MenuExitClick end end object MenuOptions: TMenuItem Caption = '&Options' ShortCut = 0 object MenuDImensions: TMenuItem Caption = '&Dimensions' ShortCut = 16452 OnClick = MenuDImensionsClick end object MenuFont: TMenuItem Caption = '&Puzzle Font' ShortCut = 16454 OnClick = MenuFontClick end object MenuTimer: TMenuItem Caption = '&Timer Options' ShortCut = 16468 OnClick = MenuTimerClick end object MenuWordLength: TMenuItem Caption = '&Word Length' ShortCut = 16471 OnClick = MenuWordLengthClick end object MenuScoring: TMenuItem Caption = 'Word &Scoring' ShortCut = 16467 OnClick = MenuScoringClick end object MenuPlayOptions: TMenuItem Caption = 'Pla&y Options' ShortCut = 16473 OnClick = MenuPlayOptionsClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object MenuBackBit: TMenuItem Caption = 'Show &Background Bitmap' ShortCut = 16450 OnClick = MenuBackBitClick end object MenuGuessFont: TMenuItem Caption = 'Word &Guess Font' ShortCut = 16455 OnClick = MenuGuessFontClick end object MenuGuessCol: TMenuItem Caption = 'Word Guess &Columns' ShortCut = 16453 OnClick = MenuGuessColClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object MenuAmerican: TMenuItem Caption = '&American Dictionary' ShortCut = 16461 OnClick = MenuAmericanClick end object MenuAddDict: TMenuItem Caption = 'Add To D&ictionary' ShortCut = 16457 OnClick = MenuAddDictClick end object MenuExcludeDict: TMenuItem Caption = 'Excl&ude From Dictionary' ShortCut = 16469 OnClick = MenuExcludeDictClick end object MenuLookUp: TMenuItem Caption = '&Look Up Word' ShortCut = 16460 OnClick = MenuLookUpClick end end object MenuHelp: TMenuItem Caption = '&Help' ShortCut = 0 object MenuContents: TMenuItem Caption = '&Contents' ShortCut = 16451 OnClick = MenuContentsClick end object MenuAbout: TMenuItem Caption = '&About' ShortCut = 16449 OnClick = MenuAboutClick end object MenuOtherProd: TMenuItem Caption = 'Other &Products' ShortCut = 0 OnClick = MenuOtherProdClick end object MenuOrder: TMenuItem Caption = '&Order' ShortCut = 0 OnClick = MenuOrderClick end end end object MyTimer: TTimer OnTimer = MyTimerTimer Left = 376 Top = 292 end object MyPrintSetup: TPrinterSetupDialog Left = 424 Top = 256 end object MyOpenDialog: TOpenDialog DefaultExt = 'WRE' FileEditStyle = fsEdit Filter = 'Word Wrestle (*.WRE)|*.WRE' Title = 'Open Word Wrestle File' Left = 448 Top = 292 end object MySaveDialog: TSaveDialog DefaultExt = 'WRE' FileEditStyle = fsEdit Filter = 'Word Wrestle (*.WRE)|*.WRE' Title = 'Save Word Wrestle File' Left = 412 Top = 292 end object MyFontDialog: TFontDialog Font.Color = clWindowText Font.Height = -17 Font.Name = 'System' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 460 Top = 256 end end